home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / zcsindex.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-03-14  |  6.8 KB  |  218 lines
  1. /* Copyright (C) 1993, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* zcsindex.c */
  20. /* Indexed color space support */
  21. #include "memory_.h"
  22. #include "ghost.h"
  23. #include "errors.h"
  24. #include "oper.h"
  25. #include "gsstruct.h"
  26. #include "gscolor.h"
  27. #include "gsmatrix.h"        /* for gxcolor2.h */
  28. #include "gxcspace.h"
  29. #include "gxfixed.h"        /* ditto */
  30. #include "gxcolor2.h"
  31. #include "estack.h"
  32. #include "ialloc.h"
  33. #include "icsmap.h"
  34. #include "igstate.h"
  35. #include "ivmspace.h"
  36. #include "store.h"
  37.  
  38. /* Imported from gscolor2.c */
  39. extern const gs_color_space_type gs_color_space_type_Indexed;
  40.  
  41. /* Forward references. */
  42. private int indexed_map1(P1(os_ptr));
  43.  
  44. /* Free the map when freeing the gs_indexed_map structure. */
  45. private void
  46. rc_free_indexed_map(gs_memory_t *mem, void *data, client_name_t cname)
  47. {    /*
  48.      * A bug in the SGI Irix 4.05 compiler requires the following:
  49.      */
  50.     char *cdata = (char *)data;
  51.     gs_free_object(mem, ((gs_indexed_map *)cdata)->values, cname);
  52.     gs_free_object(mem, cdata, cname);
  53. }
  54.  
  55. /* Indexed lookup procedure that just consults the cache. */
  56. private int
  57. lookup_indexed(const gs_indexed_params *params, int index, float *values)
  58. {    int m = params->base_space.type->num_components;
  59.     const float *pv = ¶ms->lookup.map->values[index * m];
  60.     switch ( m )
  61.     {
  62.     default: return_error(e_rangecheck);
  63.     case 4: values[3] = pv[3];
  64.     case 3: values[2] = pv[2];
  65.         values[1] = pv[1];
  66.     case 1: values[0] = pv[0];
  67.     }
  68.     return 0;
  69. }
  70.  
  71. /* <array> .setindexedspace - */
  72. /* The current color space is the base space for the indexed space. */
  73. private int
  74. zsetindexedspace(register os_ptr op)
  75. {    ref *pproc = &istate->colorspace.procs.special.index_proc;
  76.     const ref *pcsa;
  77.     gs_color_space cs;
  78.     gs_base_color_space cs_base;
  79.     ref_colorspace cspace_old;
  80.     uint edepth = ref_stack_count(&e_stack);
  81.     int num_entries;
  82.     int code;
  83.  
  84.     check_read_type(*op, t_array);
  85.     if ( r_size(op) != 4 )
  86.         return_error(e_rangecheck);
  87.     pcsa = op->value.const_refs + 1;
  88.     check_type_only(pcsa[1], t_integer);
  89.     if ( pcsa[1].value.intval < 0 || pcsa[1].value.intval > 4095 )
  90.         return_error(e_rangecheck);
  91.     num_entries = (int)pcsa[1].value.intval + 1;
  92.     cs = *gs_currentcolorspace(igs);
  93.     if ( !cs.type->can_be_base_space )
  94.         return_error(e_rangecheck);
  95.     cspace_old = istate->colorspace;
  96.     /*
  97.      * We can't count on C compilers to recognize the aliasing
  98.      * that would be involved in a direct assignment.
  99.      * Formerly, we used the following code:
  100.         cs_base = *(gs_base_color_space *)&cs;
  101.         cs.params.indexed.base_space = cs_base;
  102.      * But the Watcom C 10.0 compiler is too smart: it turns this into
  103.      * a direct assignment (and compiles incorrect code for it),
  104.      * defeating our purpose.  Instead, we have to do it by brute force:
  105.      */
  106.     memcpy(&cs_base, &cs, sizeof(gs_base_color_space));
  107.     cs.params.indexed.base_space = cs_base;
  108.     if ( r_has_type(&pcsa[2], t_string) )
  109.     {    int num_values = num_entries * cs.type->num_components;
  110.         check_read(pcsa[2]);
  111.         if ( r_size(&pcsa[2]) != num_values )
  112.             return_error(e_rangecheck);
  113.         cs.params.indexed.lookup.table.data =
  114.             pcsa[2].value.const_bytes;
  115.         cs.params.indexed.use_proc = 0;
  116.         make_null(pproc);
  117.         code = 0;
  118.     }
  119.     else
  120.     {    gs_indexed_map *map;
  121.         check_proc(pcsa[2]);
  122.         code = zcs_begin_map(&map, &pcsa[2], num_entries,
  123.                      (const gs_base_color_space *)&cs,
  124.                      indexed_map1);
  125.         if ( code < 0 )
  126.           return code;
  127.         cs.params.indexed.use_proc = 1;
  128.         *pproc = pcsa[2];
  129.         map->proc.lookup_index = lookup_indexed;
  130.         cs.params.indexed.lookup.map = map;
  131.     }
  132.     cs.params.indexed.hival = num_entries - 1;
  133.     cs.type = &gs_color_space_type_Indexed;
  134.     code = gs_setcolorspace(igs, &cs);
  135.     if ( code < 0 )
  136.     {    istate->colorspace = cspace_old;
  137.         ref_stack_pop_to(&e_stack, edepth);
  138.         return code;
  139.     }
  140.     pop(1);
  141.     return (ref_stack_count(&e_stack) == edepth ? 0 : o_push_estack);  /* installation will load the caches */
  142. }
  143.  
  144. /* Continuation procedure for saving mapped Indexed color values. */
  145. private int
  146. indexed_map1(os_ptr op)
  147. {    es_ptr ep = esp;
  148.     int i = (int)ep[csme_index].value.intval;
  149.     if ( i >= 0 )        /* i.e., not first time */
  150.     {    int m = (int)ep[csme_num_components].value.intval;
  151.         int code = num_params(op, m, &r_ptr(&ep[csme_map], gs_indexed_map)->values[i * m]);
  152.         if ( code < 0 )
  153.             return code;
  154.         pop(m);  op -= m;
  155.         if ( i == (int)ep[csme_hival].value.intval )
  156.         {    /* All done. */
  157.             esp -= num_csme;
  158.             return o_pop_estack;
  159.         }
  160.     }
  161.     push(1);
  162.     ep[csme_index].value.intval = ++i;
  163.     make_int(op, i);
  164.     make_op_estack(ep + 1, indexed_map1);
  165.     ep[2] = ep[csme_proc];        /* lookup proc */
  166.     esp = ep + 2;
  167.     return o_push_estack;
  168. }
  169.  
  170. /* ------ Initialization procedure ------ */
  171.  
  172. BEGIN_OP_DEFS(zcsindex_l2_op_defs) {
  173.         op_def_begin_level2(),
  174.     {"1.setindexedspace", zsetindexedspace},
  175.         /* Internal operators */
  176.     {"1%indexed_map1", indexed_map1},
  177. END_OP_DEFS(0) }
  178.  
  179. /* ------ Internal routines ------ */
  180.  
  181. /* Allocate, and prepare to load, the index or tint map. */
  182. int
  183. zcs_begin_map(gs_indexed_map **pmap, const ref *pproc, int num_entries,
  184.   const gs_base_color_space *base_space, int (*map1)(P1(os_ptr)))
  185. {    gs_memory_t *mem = gs_state_memory(igs);
  186.     int num_components = base_space->type->num_components;
  187.     int num_values = num_entries * num_components;
  188.     gs_indexed_map *map;
  189.     es_ptr ep;
  190.     float *values;
  191.     rc_alloc_struct_0(map, gs_indexed_map, &st_indexed_map,
  192.               mem, return_error(e_VMerror),
  193.               "setcolorspace(mapped)");
  194.     values =
  195.       (float *)gs_alloc_byte_array(mem, num_values, sizeof(float),
  196.                        "setcolorspace(mapped)");
  197.     if ( values == 0 )
  198.     {    gs_free_object(mem, map, "setcolorspace(mapped)");
  199.         return_error(e_VMerror);
  200.     }
  201.     map->rc.free = rc_free_indexed_map;
  202.     map->num_values = num_values;
  203.     map->values = values;
  204.     *pmap = map;
  205.     /* Map the entire set of color indices.  Since the */
  206.     /* o-stack may not be able to hold 4*4096 values, we have */
  207.     /* to load them into the cache as they are generated. */
  208.     check_estack(num_csme + 1);    /* 1 extra for map1 proc */
  209.     ep = esp += num_csme; 
  210.     make_int(ep + csme_num_components, num_components);
  211.     make_struct(ep + csme_map, imemory_space((gs_ref_memory_t *)mem), map);
  212.     ep[csme_proc] = *pproc;
  213.     make_int(ep + csme_hival, num_entries - 1);
  214.     make_int(ep + csme_index, -1);
  215.     push_op_estack(map1);
  216.     return o_push_estack;
  217. }
  218.